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LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
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LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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15-Sep-1984 23:28:23 VAX-11 Bliss-32 V4.0-74 P 1) 
13r3een 1b $3:5:46 — “SSsbSoDASBScecentc sacdaruuie.reas1 1} 


: 001 ' Run-Time Library specific macros and symbols 
; oe File: RILLIB.REO, Bait: §BL 1005 A 

: g PITIIILILILILI LLL LLL LLL LLL TTT iii iiiiiiiiiiiiiiii iii | 
5 '@ * 
; 47 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY “ 

3 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
: ate . ALL RIGHTS RESERVED. . | 
; 9010 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
: 11 '® ONLY IN ACCORDANCE WITH THE TERM SUCH LICENSE AND WITH THE * 

; Boi¢ '* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

: 1 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 0014 8 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

; 9015 0 ie TRANSFERRED. * | 
4 ‘® ® 

: 6019 0 '‘® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; id 0 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

H 84 8 ‘* CORPORATION. w | 
; 'e ° 

; 0021 O '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; 00 ¢ 0 '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

: oa os: bs : 

: 0096 0 PITITITITILILI LLL LLL LLL LLL TLL LiL litiiiiiiiiiiiiiiiiite 

; 0026 0 ' 

3 e 4 } Author: Steven B. Lionel, 16-August-1982 

: 0039 0 i 1-001 = Original. SBL 16-August-1982 

; 0030 0 ' 1-002 = Add LIBGETXXI.R32.  SBL 14-Jan-1983 

:; 0031 O ! 1-005 = Remove LIBGETXXI.R32. It has geen replaced with LIBFMTDEF which 

; itt) 0 ' is in STARLET. SBL 11-Mar-198 

; Oss @ ! 1-004 - Move LIBFMTDEF back here as it isn't needed in STARLET. SBL 25-May-1983 

; 0034 0 ' 1-005 = Conditionally include LIBFMTDEF if it isn't already in STARLET. 

; 0035 0 ! This is a temporary measure. SBL 27-May-1983 

; 0036 0 len 

; 0088 Ot 

> 0039 5 i This file is the master source for RTLLIB.L32. : 

:; 0040 0 ! It contains definitions for macros and symbols used internally to the 

; 0041 0 ! Run-Time Library. All symbols defined in RTLLIB must have an appropriate 

: B06 0 ! facility prefix. Only non-language-specific facility definitions should 

:; 0065 0 ! be included in RTLLIB. 

; Boece 0 to 
Py 4 | 
; sre) SWITCHES ADDRESSING_MODE (EXTERNAL=GENERAL, NONEXTERNAL=WORD_RELATIVE); 
; 
; B08 6 LIBRARY ‘RTLSTARLE'; ' SYSSLIBRARY:STARLET.L32 | 
; 0030 '¢ | 
; 0051 G ! Define Linkages for LIB$ routines. 
: 0088 - | 
: 0054 REQUIRE ‘RTLIN:LIBLNK'; 


LIB$ routin 
Edit: SBL1 


' Run-Time L torery 
: File: LIBLNK.REQ, 


:® sett fg (c) 1978, 1980 


!t ALL RIGHTS RESERVED. 
:* ONLY IN ACCORD 
t* INCLUSION OF THE 


ie OTHER PERSON. 
ie TRANSFERRED. 


ANCE WITH 


't CORPORATION. 


Author: 
; 1-001 - Original. 


'¢ 


REGIS 


LIBSSCOPY_ DXDX6$LINKAGE = 
REGISTER=0 
REGISTER=15: 

NOPRE SERVE ey 3,4,5,6) 

LIBSSCOPY_R_DX6SLINKAGE = 

JSB (" 


REGISTER=0, 
pesieren R=1 


REGISTER=2): 
NOPRE SERVE (2°3°4.5.6) 


SDOOOSOOSOSOOCSCOOOCOOOCOCOOOSOSOSOOSOSOSSSOOCOSOOOOSOOOOCOCOOOCOOOOOOOOOOOOOO 


E 
NO TITLE TO AND OWNERSHIP OF 


i This file contains Linkage definitions for LIBS i 
1. The Linkage name is the routine name suffixed with "SL INKAGE'’. 


LINKAGE 
LISSAOA VEE SDESC_R2$LINKAGE = 
REGISTER=0; 
peeitiEnes 


[beseo-t9ge 33:28:38 


Linkages 
Sor 


1984 


:* THIS SOFTWARE is FURNISHED eee A_LICENSE AND MAY BE USED AND COP 
THE TERMS OF SUCH LICENSE AND WIT 
ABOVE COPYRIGHT NOTICE. THIS SOFTWAR ANY _OTH 
PROVIDED OR OTHERWISE MADE AVAILABLE T 
THE SOFTWARE IS HER 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOT 
:® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPM 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SRR RRA AEAEEE AAR RER EERE AAA AEE AAA EAA ERATE EREETEREREA 
' 


Steven B. Lionel, 16-August-1982 
SBL 16-August-1982 


procedures. 


! LIBSANALYZE_SDESC_R2 


' Descriptor address 
i Returned Length word 
i err string pointer 


NOTUSED Se a. ‘i 7,8,9,10,1 


! LIBSSCOPY_DXDX6 


aaerese of gource descripto 
ress of gesting nation Soscrioter 
NOTUSED (7,8,9,1 


! LIBSSCOPY_R_DX6 


' Length (word) of _bouree 
Address of sours 

Address of esging ination descriptor 
NOTUSES (7,8.9,1 


VAX= 


~5255$DUA2 


PERERA EEE EE AAA A ATER AERA AEA REE TAA EEE TA RATATAT ETAT 


1982, BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


® 
® 
® 
® 
® 
® 
® 
® 
*® 
* 
® 
® 
® 
2 
x 
® 
*® 
® 
® 
® 
® 


1 Bli 


53°34 V4.0-7 
CLIBRTL. Ske LIBLNK.REQ;1 


Page 


~Sep-19 VAX=11 BLiss-32_V Page 3 
Hose ep- 1986 32:46:56 — “SSSSSDEADRSELIBRTL SRCTLIBLMK.REG; 1° (13, 


; RON LIBSSEREET_DDOSLINKAGE = ! LIBSSFREE1_DD6 | 
; ROI14 REGISTER=0) : | Address of ge descriptor | 
: moti? LIBSSEREEN,DDROSLINKAGE = ! LIBSSFREEN_DDR6 | 
: ROS 0 REGISTER=0 } Number of etetngs to deallocate 
; kRO120 REGISTER=1): Address anrey Y48'44 qreer pera 

; RO1 1 NOPRESERVE (2,3,4,5,6) NOTUSES (7,8 

; RO! 5 LIBSSGET1 _DD_R6SLINKAGE - ! LIBSSGET1_DD_R6 

: RO125 0 

; kRO126 O REGISTER=1): i Address of gessriptor 

: R01 i 0 NOPRESERVE (2,3,4,5,6) NOTUSED (7,8,9,10,1 

: Ro139 0 ! End of file LIBLNK.REQ 


REGISTER=0 ! Length (word) of string to allocate 
| 
| 
| 
| 
| 
| 
| 


14 
} Define macros for LIB$ routines. 


REQUIRE "RTLIN:LIBMACROS'; 
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HSoseo-toge 35:28:38 y 


' Macros for the Run-Time Librery 448s facility 
File: LIBMACROS.REQ, Edit: SBL10 


EPS S ESSE TTT TTT TTT TTT P rrr PPT c cere tice etic i iret iri tii iii iiiid) 


Vee eR AAA A RARER RARE AREA AAA AEA EATER ERT EATER ETRE EEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corte? 
ONLY IN ACCORDANCE WITH THE font OF SUCH int i ae * ere THE 
INCLUSION OF THE ABOVE Sgt Le, OTICE. THIS SOFTWARE OR OTHER 
COPIES THEREOF MAY NOT BE P OVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Pannerchetee’ NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeRPORat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Author: Steven B. Lionel, 16-August-1982 
1-00) - Original. SBL 16-August-1982 


1-002 = Add macros 9 read, write and copy with autoincrement. 


SBL <i, 
_1-003 - Add $LIB OVQ@. SBL 17-June-1983 


i “this file contains macros which are eyatiaple to any BLISS module that 
! REQUIRES LIBPROLOG.REQ. Macros in this file are useful to any LIB$ 
i module. wr anen in BLISS. ALL macros defined MUST have names that begin 


i ‘with 


"“$L1B$" 


® 
® 
® 
& 
*® 
® 
® 
® 
® 
® 
® 
i 
® 
® 
® 
*® 
t 
® 
*® 
® 
*® 
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1Bosen-1964 33:28:35 


SLIBSVALIDATE_ARGCOUNT 


' Macro used to check that a LIBS procedure was called with the correct 


! number of arguments. If the test fails, the procedure returns with the 


failure status LIBS_WRONUMARG. 


Format: 
SLIBSVALIDATE_ARGCOUNT (Lo, hi); 


lo = Lowest number of arguments which are valid (0-255) 
hi = Highest number of arguments which are valid (0-255) 


MACRO 
SLIBSVALIDATE_ARGCOUNT (lo, hi) = 
BEGIN 


BUILT] 


ACTUALCO : 

EXTERNAL LITERAL 
LIBS_WRONUMARG; 

IF lo NEQ hi 
THEN 
ZIF lo NEQ 0 
ZTHEN 

LOCAL 


DIFF: BYTE; 
DIFF = ACTUALCOUNT () = Lo; 
IF .DIFF GTRU (hi = Lo) 


EN 
SELS RETURN LIB$_WRONUMARG; 
IF ACTUALCOUNT () GTRU hi 


a RETURN LIB$_WRONUMARG; 


ZELSE 
IF ACTUALCOUNT () NEQU lo 


ts RETURN L1B$_WRONUMARG; 


END &; 


AX=1 
LIBR 


1 Oi leg 
TL.SRC 


=32 V4.0-742 
LIBMACROS.REQ;1 


y sie V4.0=742 
LIBRTL.SRCJLIBMACROS.REQ; 1 
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'¢ 
Define item format codes for LIBSGETxxl procedures. 


XIF NOT XDECLARED(LIBSK_FMT_STRING) 
REQUIRE 'RTLML:LIBFMTDEF’; 


=? 
' 


& | 
15-Sep-19 4 $3: 98:43 yt Bliss-32 V4.0-742 Page 9) 
15-Sep-1984 22:51:09 LIBRTL.OBJJLIBFMTDEF .REQ; 1 (1) | 


$ RO0261 0 ' LARRRAAAAAAALLAL ARR RASE ASAE LES ESE SSSR SERA RA ESLER EASA ESAS A CECE ECCS ECE C CECE SEE ETE ETS eee acai ii 
> RO26 ! Created 15-SEP-1984 22:48:43 by VAX=-11 SDL V2.0 Source: 15-SEP-1984 22:46:21 _$255$DUA28:CLIBRTL.SRCILIBFE | 
3 RO 6 ! PPP SSSSE SECIS TIT TTTP Pee ATT TTT CT ITI TTC I LETT IT TIT TIT ELIT LA LATTA LETTE LTT TTT 
BE 8 
: RO 66 twee MODULE SLIBFMTDEF #e* 
; RO26 ! Item formatting codes used by LIBSFORMAT_ITEM 
; kRO268 Literal LIBSK_FMT_STRING = 0; ' Value is a string 
; RO269 Literal LIBSK_FMT_ASCIC = 1; Value is a counted string 
; kRO0270 BSK_FMT_HEXSTRING = 2; ' Value is a hex ptr ing of arbitrary length 
: RO271 BSK_FMT ak NG = ! Value is a blank-padded string 
>; RO 46 d for string expansion 
3; RO2?7 BSK_FMT_BIN = 8; ! Value is a longword integer 
3 ~ 74 BSK_FMT_HEX = 9; ! Value is a hex-formatted integer 
; kRO275 BSK_FMT_BOOLEAN = 10; ' Value is a bit; use boolean for string 
; RO 7g BSK_FMT_DATE = 11; ' Value is a date 
; R027 BSK_FMT_PRIVILEGE = 12; ' Value is a privilege mask 
: RO27B BSK-FMT-UIC = 13; i value is a UIC 
; 79 BSK-FMT-PROT = 14; i value is a protection specifier 
; RO280 8 BSK_FMT = 15; ! Value is a volume protection specifier 
3 BSK_FM : ' Value is an ACP type | 
; 0 BSK_FM ! Value is a process state 
; 0 BSK—F ' Value is a process mode 
; 0 BSK 
; 0 BSK | 
: 0 BSk 
| 
| 
| 


! End of file RTLLIB.REQ 


Library Statistics 


~-$255$DUA28: CSYSLIBISTARLET.L32;1 


COMMAND QUALIFIERS 
BLISS/LIBRARY=LIB$:/LIST=LIS$:/SOURCE=REQUIRE SRC$:RTLLIB 


; Lines/CPU Min: 434 
; Lexemes/CPU-Min: 14961 


; y Uv 
; Library Precompilatto 


Soc}984 38:29:93 


LbisetcHatt® 


Processing 
Time 


00:01.0 


Pa 
CLIBRTL. SRCSRTLLIB. REQ;1 


eee ed 
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